home *** CD-ROM | disk | FTP | other *** search
/ Colson Caster Selection Guide 3 / Colson Caster Selection Guide 3.0.iso / data1.cab / Program_Executable_Files / colsoncd.dxr / 00001Series_335.ls < prev    next >
Encoding:
Text File  |  2000-01-12  |  854 b   |  29 lines
  1. on mouseUp
  2.   puppetSound("mainsnd")
  3.   put "96" into field "whmodnum"
  4.   put EMPTY into field "bemodnum"
  5.   put ".7" into field "comodnum"
  6.   put EMPTY into field "whexmodnum"
  7.   put EMPTY into field "bearingoption"
  8.   if chars(field "mtmodnum", 2, 2) contains "9" then
  9.     put "59." into field "mtmodnum"
  10.   end if
  11.   if chars(field "mtmodnum", 2, 2) contains "8" then
  12.     put "58." into field "mtmodnum"
  13.   end if
  14.   if chars(field "mtmodnum", 2, 2) contains "9" then
  15.     if field "maincasterphoto" contains "impak" then
  16.       put "79." into field "mtmodnum"
  17.     end if
  18.   end if
  19.   if chars(field "mtmodnum", 2, 2) contains "8" then
  20.     if field "diamodnum" contains "8" then
  21.       if field "maincasterphoto" contains "impak" then
  22.         put "78." into field "mtmodnum"
  23.       end if
  24.     end if
  25.   end if
  26.   puppetTransition(47, 1, 8)
  27.   play frame "4bbearingc"
  28. end
  29.